TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/T-TPUG Old Monthly Disks/(c)td.d64/subject shoot.c

Commodore BASIC | 2007-02-04 | 6KB | 184 lines

1 POKE53280,0:POKE53281,0:POKE646,7:H=1924:CL=54272:F=0:GOSUB4000:GOSUB3000
2 GOSUB1000
3 PRINT"[147]"
5 PRINT""A$
10 POKE53280,0:POKE53281,0:POKE646,7
30 XV=(PEEK(56320)AND15)
40 JV=15-XV:KV=(PEEK(56320)AND16)
50 IFJV=4THEND=-1
60 IFJV=8THEND=1
62 IFKV=0THEND=-40:H1=H:GOSUB390
65 IFK1=2THENGOSUB900
100 H=H+D:IFH<1904THENH=1904
200 IFH>1943THENH=1943
300 POKEH-D,32:POKEH,65:POKEH+CL,1
310 FORT=1TO25:NEXTT:D=0:GOTO30
390 H=H+D:H=H-40
400 IFH>=S1ANDH<=S2THENGOTO500
402 IFH>=1184ANDH<S2THENGOSUB800
403 IFH>S2ANDH<=1223THENGOSUB800
405 IFPEEK(H)<>32THENPOKEH+40,32:POKEH,32:GOTO3
410 POKEH-D,32:POKEH-40,30:POKEH-40+54272,4
420 GOTO390
500 POKE53280,2:POKE53281,5:GOSUB700
505 FORK=S1TOS2:POKEK,32:NEXT:FORT=1TO2000:NEXT
510 POKE53280,0:POKE53281,0
515 PRINT"YES! YOU GOT IT!!  YOUR SCORE IS ";P
518 PRINT"(PRESS RETURN FOR NEXT SENTENCE)
519 [161]A$:[139]A$[178]""[167]519
520 [139]A$[179][177][199](13)[167]519
550 S1[178]0:S2[178]0:M[178]0:[137]2
700 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
710 [151]S[170]24,15:[151]S[170]5,10:[151]S[170]6,250:[151]S[170]4,129:[151]S[170]1,35:[151]S,200
720 [129]T[178]1[164]300:[130]:[151]S[170]4,128
730 P[178]P[170]1:[142]
800 [141]1100:[153]"NO! THAT IS NOT THE SUBJECT!"
805 M[178]M[170]1:[129]T[178]1[164]3000:[130]
810 [139]M[178]2[167][153]"CLRSORRY! YOUR TWO TRIES ARE UP!SYS":[129]T[178]1[164]3000:[130]:[137]2
820 [142]
900 [161]Z$:[139]Z$[178]""[167]900
910 [139]Z$[178]","[167]D[178][171]1
920 [139]Z$[178]"."[167]D[178]1
930 [139]Z$[178]"/"[167]D[178][171]40:[137]390
940 [142]
1000 [135]A$:LS[178][195](A$):[139]A$[178]"STOP"[167][137]5000
1010 [129]I[178]1[164]LS
1020 [139][202](A$,I,1)[178]"CLOSE"[167]S1[178]1184[170]I:[137]1030
1025 [130]
1030 [129]J[178]I[170]1[164]LS
1035 SU$[178]SU$[170][202](A$,J,1)
1040 [139][202](A$,J[170]1,1)[178]"CLOSE"[167]S2[178]S1[170]J[171]I[171]1:[137]1060
1050 [130]
1060 [142]
1100 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
1110 [151]S[170]24,15:[151]S[170]5,18:[151]S[170]6,242
1120 [151]S[170]4,33:[151]S[170]1,4:[151]S,48
1130 [129]T[178]1[164]300:[130]:[151]S[170]4,32:[129]T[178]1[164]800:[130]
1140 [142]
2000 [131] "THATCLOSEMANCLOSEIS MY FATHER"
2010 [131] "CLOSEGEORGECLOSEIS MY FRIEND."
2020 [131]"IN THIS COTTAGE LIVES ACLOSEHERMITCLOSE."
2030 [131]"MUSTCLOSESHECLOSEEAT THE SALAD?"
2040 [131]"ACROSS THE FIELD MARCHED THECLOSEBANDCLOSE."
2050 [131]"DOCLOSEYOUCLOSEHAVE THE KEYS?"
2060 [131]"WHERE WAS YOURCLOSEFATHERCLOSEBORN?"
2070 [131]"BOY DIDCLOSEWECLOSELAUGH!"
2080 [131]"THERE IS AN OLDCLOSEROWBOATCLOSEAT THE RIVER."
2090 [131]"DOWN THE STAIRS STUMBLED THECLOSEGIRLCLOSE."
2100 [131]"NEVER HADCLOSESHECLOSERUN SO FAST!"
2110 [131]"WHICH SUIT DIDCLOSERONCLOSEBUY?"
2120 [131]"FROM THE CEILING HUNG AN ORNATECLOSELAMPCLOSE."
2130 [131]"AND LAUGHCLOSEWECLOSEDID!"
2140 [131]"MYCLOSEICLOSESPEND THE MONEY ON A NEW BOOK?"
2150 [131]"STOP"
3000 [153]"LOADJOYSTICK FOR(J)WAITSYS OR KEYBOARD PRINT(K)WAIT?
3010 INPUTC$:IFC$<>"J"ANDC$<>"K"THEN3010
3020 IFC$="J"THENK1=1
3030 IFC$="K"THENK1=2
3040 PRINT"[156]IF YOU CHOOSE THE KEYBOARD,YOU WILL NEEDTO ACTIVATE ";
3045 PRINT"THE CANNON BY PRESSING      EITHER < OR >."
3050 PRINT"THE FOLLOWING COMMANDS WORK WITH THE KEYBOARD:"
3055 PRINTTAB(4)"< = LEFT"
3060 PRINTTAB(4)"> = RIGHT"
3070 PRINTTAB(4)"/ = FIRE CANNON"
3080 PRINT"[158] PRESS RETURN TO CONTINUE "
3090 GETA$:IFA$=""THEN3090
3100 IFA$<>CHR$(13)THEN3090
3110 RETURN
4000 PRINT"[147]"
4005 FORI=1304TO1343:POKEI,102:POKEI+CL,5:NEXT
4010 FORI=1343TO1743STEP40:POKEI,102:POKEI+CL,5:NEXT
4020 FORI=1743TO1704STEP-1:POKEI,102:POKEI+CL,5:NEXT
4030 FORI=1704TO1304STEP-40:POKEI,102:POKEI+CL,5:NEXT
4040 PRINTTAB(12)"SU[158]BJE[156]C[159]T [129]S[153]H[156]OOT"
4050 PRINTTAB(6)"[156]A SUBJECT RECOGNITION GAME"
4060 PRINTTAB(3)"[158] PRESS RETURN FOR INSTRUCTIONS. "
4070 GETA$:IFA$=""THEN4070
4080 IFA$<>CHR$(13)THEN4070
4090 PRINT"[147]"TAB(12)"[145] INSTRUCTIONS "
4100 PRINT"[154]WELCOME TO SUBJECT SHOOT.[155]"
4110 PRINT"THE PURPOSE OF THIS GAME IS TO TEST YOURABILITY TO ";
4120 PRINT"RECOGNIZE THE SUBJECT OF A   SENTENCE.THE GAME WILL PRESENT ";
4130 PRINT"SENTENCESWITH SUBJECTS IN VARIOUS POSITIONS.SOME OF THE ";
4140 PRINT"SUBJECTS WILL BE EASY TO FIND;   OTHERS WILL BE MORE DIFFICULT. ";
4150 PRINT"WE WILL  BEGIN THE GAME WITH A SHORT LESSON ON   IDENTIFYING THE ";
4160 PRINT"SUBJECT OF A SENTENCE."
4170 PRINT"[156]PLEASE TYPE IN YOUR FIRST NAME."
4180 PRINT:INPUT"YOUR NAME PLEASE";N$
4185 PRINT"[129]THANK YOU[152] ";N$;"[129].LET'S GET STARTED."
4190 PRINTTAB(12)"[158] PRESS RETURN "
4200 GETA$:IFA$=""THEN4200
4210 IFA$<>CHR$(13)THEN4200
4220 PRINT"[147][145]"TAB(12)" LESSON 1 "
4230 PRINT"THE [158]SUBJECT IS THE PART OF THE SENTENCE ABOUT WHICH ";
4240 PRINT"SOMETHING IS BEING SAID."
4250 PRINT"[152]PLEASE EXAMINE THE FOLLOWING SENTENCES:"
4260 PRINT"[158]1)FATHER CAME HOME EARLY."
4265 PRINT"2)HAS MIKE COME YET?"
4270 PRINT"3)INTO THE HOUSE CAME JEFF."
4280 PRINT"4)HAVE YOU DONE YOUR HOMEWORK?"
4285 PRINT"5)I BELIEVE IN HONESTY!"
4290 PRINT"[159]CAN YOU IDENTIFY THE SUBJECTS?"
4300 PRINT"[158] PRESS SPACE BAR TO SEE SUBJECTS "
4310 GETA$:IFA$=""THEN4310
4320 IFA$<>CHR$(32)THEN4310
4330 FORI=1346TO1351:POKEI,119:POKEI+54272,8:FORT=1TO100:NEXT:NEXT
4335 PRINT""TAB(32)"[129](FATHER)":FORT=1TO1000:NEXT
4340 FORI=1470TO1473:POKEI,119:POKEI+54272,5:FORT=1TO100:NEXT:NEXT
4342 PRINTTAB(32)"(MIKE)":FORT=1TO1000:NEXT
4345 FORI=1606TO1609:POKEI,119:POKEI+54272,4:FORT=1TO100:NEXT:NEXT
4347 PRINTTAB(32)"[156](JEFF)":FORT=1TO1000:NEXT
4350 FORI=1711TO1713:POKEI,119:POKEI+54272,2:FORT=1TO100:NEXT:NEXT
4352 PRINTTAB(32)"(YOU)":FORT=1TO1000:NEXT
4355 POKE1826,119:POKE1826+54272,6
4357 PRINTTAB(33)"(I)":FORT=1TO1000:NEXT
4360 PRINT"[158]            PRESS RETURN             "
4365 FORT=1TO200:NEXTT
4370 PRINT"            PRESS RETURN             "
4380 FORT=1TO200:NEXTT
4390 GETA$:IFA$=""THEN4360
4400 IFA$<>CHR$(13)THEN4360
4410 PRINT"[147][145][129] LESSON CONTINUED "
4420 PRINT"[152]REMEMBER THAT ALTHOUGH THE  SUBJECT USUALLY COMES BEFORE ";
4430 PRINT"THE VERB,SOMETIMES IT MAY APPEAR IN OTHER POSITIONS.";
4440 PRINT"LET'S  TAKE ONE LAST LOOK AT SOME SENTENCES ANDTHEIR SUBJECTS. ";
4445 PRINT"NOTE SUBJECTS IN BLUE."
4450 PRINT"1)IT WAS JACK WHO CALLED YOUR FATHER."
4455 PRINT"2)ACROSS THE SKY FLEW THE BIRD."
4460 PRINT"3)ARE YOU CORRECT IN YOUR THINKING?"
4465 PRINT"4)RAYMOND IS THE TEAM CAPTAIN."
4470 PRINT"5)WHICH DRESS DID YOUR MOTHER BUY?"
4480 PRINT""TAB(12)"[158] PRESS RETURN "
4485 GETA$:IFA$=""THEN4485
4490 IFA$<>CHR$(13)THEN4485
4500 PRINT"[147]"TAB(9)"[156] GAME INSTRUCTIONS "
4510 PRINT"[152]THE OBJECT OF THE GAME THAT FOLLOWS IS  TO SHOOT THE ";
4520 PRINT"SUBJECT[152] OUT OF EACH SEN-   TENCE AS THAT SENTENCE APPEARS ON ";
4525 PRINT"THE   SCREEN."
4530 PRINT"YOU WILL GET TWO CHANCES TO SHOOT THE   SUBJECT. ";
4535 PRINT"IF YOU MISS BOTH TIMES,YOU WILLGET NO POINTS FOR THAT SENTENCE. ";
4540 PRINT"AND THENEXT SENTENCE WILL APPEAR."
4550 PRINT""TAB(10)"[129]GOOD LUCK ";N$"."
4560 PRINTTAB(12)"[158] PRESS RETURN "
4565 GETA$:IFA$=""THEN4565
4570 IFA$<>CHR$(13)THEN4565
4580 RETURN
5000 PRINT"[147]":PRINT"OKAY, ";N$;" THE GAME IS OVER."
5010 PRINT"[156]YOU HAVE COLLECTED ";P;" POINTS OUT OF 15."
5020 PRINT"BREAKDOWN"
5030 PRINT"   15=EXCELLENT"
5035 PRINT"   14=VERY GOOD"
5040 PRINT"12-13=OKAY
5050 [153]"BELOW 12= REVISION REQUIRED"
5060 [153][163]12)"SYS PRESS RETURN "
5065 [161]A$:[139]A$[178]""[167]5065
5070 [139]A$[179][177][199](13)[167]5065
5080 [153]"LOAD":[153][163]13)" OPTIONS "
5090 [153][163]5)"CLRR=RUN GAME OVER"
5095 [153][163]5)"FORQ=QUIT THE PROGRAM"
5100 [133]"PRINTYOUR CHOICE";A$
5110 [139]A$[179][177]"R"[175]A$[179][177]"Q"[167]5100
5120 [139]A$[178]"R"[167][137]1
5130 [139]A$[178]"Q"[167][128]
5140 [128]